home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Die Speccy' 97
/
Die Speccy' 97.iso
/
amiga_system
/
the_aminet
/
comm
/
mail
/
netmail_13.lha
/
NetMail
/
Drivers
/
Dme.reader
< prev
next >
Wrap
Text File
|
1995-10-14
|
1KB
|
58 lines
/*
** $VER: Dme.reader 1.0 (26.7.95)
** Copyright (c) 1995 Roger Cassatella
**
*/
OPTIONS RESULTS
OPTIONS FAILAT 21
cmd = 'SYS:Utilities/Dme'
IF ~EXISTS(cmd) THEN DO
cmd = GetVar('NetMail/DmeCmd')
IF cmd = 0 | ~EXISTS(cmd) THEN DO
ADDRESS COMMAND 'SetEnv NetMail/DmeCmd `Which "Dme"`'
cmd = GetVar('NetMail/DmeCmd')
IF cmd = 0 THEN DO
ADDRESS COMMAND 'SetEnv NetMail/DmeCmd `RequestFile Title "Select Dme command" Noicons`'
cmd = GetVar('NetMail/DmeCmd')
IF cmd = 0 | ~EXISTS(cmd) THEN RETURN 2
ADDRESS COMMAND 'Copy QUIET ENV:NetMail/DmeCmd ENVARC:NetMail/DmeCmd'
END
END
END
SELECT
WHEN UPPER(ARG(1)) = 'READ' THEN DO
PARSE ARG , file, port
port = 'DME'
IF ~show('P', port) THEN DO
ADDRESS COMMAND
'Run >NIL:' cmd file
IF RC ~= 0 THEN RETURN 5
END
ELSE DO
ADDRESS VALUE port
'NEWFILE 'file
END
END
WHEN UPPER(ARG(1)) = 'CLEAR' THEN DO
PARSE ARG , port
IF show('P', port) THEN DO
ADDRESS VALUE port
'CLEAR'
END
END
WHEN UPPER(ARG(1)) = 'CLOSE' THEN DO
PARSE ARG , port
IF show('P', port) THEN DO
ADDRESS VALUE port
'Quit'
END
END
END
RETURN port